Top 10k strings from +80 Full Screen Editor-Assembler (1984)(Oxford Computer Publishing).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 i$(interface,1
4 PPress ENTER to continue < >
3 ldrbase+10
3 interface=255
3 ;"+80Edt/Asm"
3 (LENGTH),HL
3 "+80Edt/Asm"
2 ldrbase,totlen
2 interface=0
2 a=interface:
2 X"oq!sq"qq
2 HL,(TLPNTR)
2 HL,(MAXLNG)
2 HL,(LENGTH)
2 HL,(COORDS)
2 ASSEMBLY ABORTED
2 @This function allows you to
2 +offset+n,a:
2 +offset+n);",";
2 (ldrbase+12
2 (ldrbase+11
2 (TLPNTR),HL
2 each time"'"you wish to run the program."
1 |TOTAL ERRORS
1 {IHBBBBBBBBBBBBBBB 8@@+80 FULL SCREEN EDITOR/ASSEMBLER
1 {)HBBDFABDFABCBBBB
1 zPr = Load normal char. < >
1 warm=25004
1 variable initialisation
1 udg /
1 udg
1 this program's entry point
1 pdbase=57344
1 parity=on+odd
1 parity=on+even
1 parity=off:
1 parity=off
1 parity-on=odd
1 parity-on=even
1 offset=32768
1 microdrive version entry point
1 lo=BAUD-256
1 ldrbase=31744
1 ldrbase,1024
1 ldbase=32768
1 ldbase,totlen
1 interface>15
1 interface=
1 interface<0
1 input parameters
1 i$(interface,2
1 display parameters
1 cold=25001
1 cassette version entry point
1 bits;" data bits":
1 baud rate>19200
1 baud rate=
1 baud rate<10
1 `Ptyping symbol shift q.
1 `HThis allows you to recall any ofyour own chars.
1 [cObjectCode
1 ZPq = Load UDG char.
1 UNDEFINED SYMBOL
1 TAPE ERROR
1 SYMBOL TABLE
1 START ; Restart
1 Pt = Stop
1 Ps = Help
1 Printer configuration program
1 Pprogram from the memory if your BASIC program is more than a
1 Po = Edit char.
1 PTo restart the UDG program (if still in memory) type GOTO 20.
1 PThis allows you to load any of the normal char. set into the grid. The "
1 PRTCHR ; yellow body
1 PRTCHR ; print it
1 PRTCHR ; snake.
1 PRESS ANY KEY TO CONTINUE THE ASSEMBLY>
1 PENTER CHAR. < >
1 P80FLG=25067
1 P80FLG,255
1 OBJECT CODE BUFFER&
1 NZ ; Multiple keys
1 NC ; No key pressed
1 MULTIPLY DEFINED SYMBOL
1 MULTIPLE DEFINITION
1 MOVEHD ; move head
1 MISSING INFORMATION
1 LOOP ; continue
1 L ; to the right
1 L ; move to the left
1 L ; divide by 4
1 Interface 1 not presentInvalid drive numberCartridge write protectedCartridge fullMicrodrive not presentMicrodrive load errorFile not foundFile too bigVerification has failedWrong file typeOut of memoryEnd of file
1 Indescomp = Morex
1 INKEY ; scan keys
1 INIT ; initialise
1 Hnumeric columns to the left of the grid also changing. These are the numeric values of the rows of the grid in hexadecimal and decimal form. The char. in the bottom right-hand corner
1 Hhowever, that you might have to type NEW to clear the UDG
1 HTo select a function, position the cursor between the following< > symbols and press ENTER. TheENTER key is also used to exit the functions.
1 HThe program offers 6 functions.
1 HThe program displays each char. in a grid form, with each dot ofthe 64 dots that go to make up achar. enlarged 256 times.
1 HL; increment length
1 HL; decrement length
1 HL,TLPOSN ; cycle it
1 HL,TLPOSN ; cycle
1 HL,DISFLE+6*1024
1 HL,DE ; too long ?
1 HL,DE ; pointer
1 HL,DE ; Move
1 HL,BC ; restore HL
1 HL,15 ; sound a
1 HL,0C10H ; centre of
1 HL,(TLPNTW)
1 HL ; empty stack
1 HL ; Save it
1 HL ; Empty stack
1 HL ; increment max.
1 HL ; tail posn.
1 HL ; clear ?
1 HJames Hutchby
1 HBBCBJBCBBBGFABB
1 H4. Load normal char.
1 H ; move up
1 H ; move down
1 H ; HL <= HL + 256
1 File already exists, overwrite? Y/N
1 FOUND FILE:
1 FILE TOO BIG
1 FIELD OVERFLOW
1 ENTER COMMAND =>
1 Drivers
1 DIVISION BY ZERO
1 DELAY ; scale.
1 DE,TLPOSN+510
1 DE,SPACE ; Blank out
1 DE,DISFLE+6*1024+1
1 DE,DISFLE+1
1 DE,0750 ; short,high
1 DE,(LENGTH)
1 DE ; next byte
1 Created with Ramsoft MakeTZX
1 CLS ; Snake moves
1 CKempston 'S' CKempston 'E' CTasman type A CTasman type B RTasman serial CHilderbay CMorex RMorex RZX Interface 1 CZX Lprint II/III RZX Lprint II/III CMicro Peripherals CDireco CIndescomp RIndescomp
1 C,MOVETL ; move tail
1 C,7*8+7 ; end of
1 C,7*8+4 ; green head
1 C,4*8+6 ; green and
1 BRANCH OUT OF RANGE
1 BEEP ; pitched tone.
1 BC,TLPOSN+510
1 BC,6*1024-1
1 BC,3*256-1
1 BC,1000 ; upper
1 BAD OPCODE
1 BAD EXPRESSION
1 BAD ADDRESSING MODE
1 B,8 ; 8 rows in char
1 B,100 ; Wait for
1 B ; B <= 3
1 B ; B <= 2
1 B ; B <= 1
1 A` ; Direction the head is moving :
1 A,B ; new direction
1 A,17 ; Output a
1 A,1 ; Blue
1 A,(HL) ; is the way
1 A,(DIRCTN)
1 A,(DE) ; row data =>
1 A,(23693); permanent
1 A ; initially to the
1 A ; limit
1 @store your own chars. in the
1 @move the cursor anywhere in the grid. Typing SPACE will remove adot, any other key will add a dot. If you change the char. in the grid you will see the 2
1 @change the char. in the grid. Using keys 5,6,7 & 8 you can
1 @area set aside for them above RAMTOP.
1 @User Defined Graphics
1 @UDG is a program to help you to develop your own graphic chars. quickly and simply.
1 @This function will return you tothese explanatory notes.
1 @Pwill also change. This is the actual size of the char. in the grid.
1 @Pfew statements long.
1 @FUNCTIONS (3)
1 @FUNCTIONS (2)
1 @FUNCTIONS (1)
1 @BBBBBBBBBBBBBBB
1 @BBASDBASDBHSDBB
1 @@5. Help.
1 @@2. Save UDG char.
1 @@1. Edit Char.
1 ?~~~~w~?~~~?~~~~~?~~~~~~~~~~~~~~?~~~
1 ?wo}ww?ww~~???o{ww{
1 ?PAHG@IPOHQ@O
1 ;"Enter number of printed lines ineach page ? ";
1 ;"Enter number of blank lines at the top of each page ? ";
1 ;"Enter number of blank lines at the bottom of each page ? ";
1 ;"Enter control codes to be sent to the printer at the start of each line, separated by commas ?";
1 ;"Enter control codes to be sent to the printer at the end of each line, separated by commas ?";
1 ;"32 Column"
1 ;" stop bit";
1 ; the print position , the DE
1 ; tails position.
1 ; snake's head.
1 ; snake's body and head.
1 ; screen using the keys as
1 ; reset attributes
1 ; register pair pointing to
1 ; point in the display file.
1 ; point in the attributes area.
1 ; or insert an ORG statement
1 ; of the attributes memory.
1 ; follows:
1 ; desired colour attributes.
1 ; containing the x,y coords of
1 ; border and its own tail.
1 ; and execute using 'RUN'
1 ; and assemble to tape.
1 ; X - exit
1 ; Write pointer into the above.
1 ; This subroutine clears the
1 ; The snake must avoid both the
1 ; Subroutine to move the tail
1 ; Subroutine to move the head
1 ; Stores the position of the
1 ; Stores the coords of the
1 ; Routine to read the keyboard
1 ; Read pointer into the above.
1 ; Print character subroutine
1 ; O - left P - right
1 ; Maximum length of snake.
1 ; Length of snake.
1 ; Initialisation
1 ; HL now points to the relevant
1 ; HL now points to the 1st byte
1 ; Guide the snake around the
1 ; Fed with the HL register pair
1 ; Dot matrix data for the
1 ; C register containing the
1 ; Assemble into memory (A/IM)
1 ; 8 bytes of row data and the
1 ; 3 = DOWN
1 ; 1 = RIGHT
1 ; 1 - up Q - down
1 ; 0 = LEFT
1 ; & border colours.
1 ; "Snake" - demo program
1 ; and paper
1 ; 2 seconds
1 :Pp = Save UDG char.
1 7*8+7 ; ahead
1 16384 ; Display file
1 03B5H ; Beeper
1 031EH ; Test keycode
1 028EH ; Scan keys
1 /baud rate-101
1 +offset,stop
1 +offset,parity
1 +offset,lo:
1 +offset,in
1 +offset,hi
1 +offset,bits
1 +offset,below
1 +offset,above
1 +80Snake O
1 +80Edt/Asmq
1 +80Edt/Asm
1 *^[&%>}/,-]'$<{?.+
1 *3m###"3m*5m
1 )="R"+"ZX Lprint II/III"
1 )="R"+"ZX Interface 1"
1 )="R"+"Tasman serial"
1 )="R"+"Morex"
1 )="R"+"Indescomp"
1 )="C"+"ZX Lprint II/III"
1 )="C"+"Tasman type B"
1 )="C"+"Tasman type A"
1 )="C"+"Morex"
1 )="C"+"Micro Peripherals"
1 )="C"+"Kempston 'S'"
1 )="C"+"Kempston 'E'"
1 )="C"+"Indescomp"
1 )="C"+"Hilderbay"
1 )="C"+"Direco"
1 (ldrbase+6
1 (ldrbase+3
1 (TLPNTW),HL ; update
1 (TLPNTW),HL
1 (MAXLNG),HL ; length
1 (MAXLNG),HL
1 (HL),E ; Store new
1 (HL),C ; Set colours
1 (HL),A ; disp file
1 (HL),A ; colours
1 (HL),63 ; White ink
1 (DIRCTN),A ; left
1 (DIRCTN),A
1 (COORDS),HL ; screen
1 (COORDS),DE
1 (BAUD/255.999
1 (254),A ; falling
1 (254),A ; border
1 'p ; HL points to the corresponding
1 '+80Snake'
1 ''"Control codes at start of line:"
1 ''"Blank lines at top of page: ";above
1 ''"Baud rate = ";baud rate''
1 '"Rewind the tape and press play for verification."
1 '"Immediately; enter
1 '"From cassette (if saved);"'"press
1 '"Control codes at end of line:"
1 $ ; Snake crashed
1 $ ; Print character
1 $ ; Clear screen
1 "User-own driver":
1 "The program will be saved in three parts."
1 "Select interface ? ";
1 "Printed lines in page: ";in
1 "Place the cartridge you wish to save the program on in drive 1."
1 "Parity on or off ? ";
1 "Parity odd or even ? ";
1 "Odd parity"
1 "No parity bit":
1 "From microdrive (if saved);"'"press
1 "Even parity"
1 "Enter number of stop bits (1 or 2) ? ";
1 "Enter number of data bits (7 or 8) ? ";
1 "Enter baud rate ? ";
1 "Do you wish to save the program onto a microdrive cartridge (y or n) ? ";
1 "Do you wish to save the program onto a cassette"'"(y or n) ? ";
1 "Configuration complete - to run"'"the configured program:"''
1 "Centronics"
1 "Blank lines at bottom: ";below
1 "Are these parameters correct (y or n) ? ";
1 "255.User-own driver"
1 "0. ZX & Alphacom";
1 "+80 FULL SCREEN EDITOR/ASSEMBLER"''
1 " is obtained by
1 " Centronics"
1 to continue ";
1 to clear the"'"computer,"'"then press
1 to clear the"'"computer,"'"then enter
1 START THE TAPE AND PRESS ANY KEYSourceCode!;s6
1 Oxford Computer Publ. Ltd.
1 OXFORD COMPUTER PUBLISHING
1 HThis function will return you toBASIC. At this point you can useany chars. you have created and saved in the area set aside for them above RAMTOP. Remember,
1 H3. Load UDG char.
1 F. Ainley 1982
1 BYTES FREE (FROM H)
1 ; screen and sets the attributes
1 ((() 0
1 INVALID REQUEST
1 OUT OF MEMORY
1 NOT FOUND